00400	COMPILE;
00500	INSTRUMENT CLAR2;
00600	OSCIL[10](P4,10*MAG/P2,P5);
00700	COSCIL(U1,P3*MAG,P7);<P7 IS TONE COLOR FOR 'CLAR2'
00800	OUTA←OUTA+U2;END;
00900	
01000	INSTRUMENT CLAR;
01100	OSCIL[10](P4,10*MAG/P2,P5);
01200	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
01300	OUTA←OUTA+U2;END;
01400	
01500	INSTRUMENT CLAR3;
01600	OSCIL[10](P4,10*MAG/P2,P5);
01700	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR3'
01800	OUTA←OUTA+U2;END;
01900	
02000	INSTRUMENT CLAR4;
02100	OSCIL[10](P4,10*MAG/P2,P5);
02200	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR4'
02300	OUTA←OUTA+U2;END;
02400	FINISH;
02500	
03300	
03500